home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d13 / ptv2n1.arc / WATCHER.PAS < prev    next >
Pascal/Delphi Source File  |  1991-03-26  |  1KB  |  59 lines
  1.  Program Watcher;
  2.  Uses Crt,Watch;
  3.  
  4.  Var I        : Integer;
  5.      Wind0,
  6.      Wind1,
  7.      Wind2    : TextWindowPtr;
  8.      MyList   : List;
  9.      WatchRec : WatchObj;
  10.  
  11.  PROCEDURE Draw_Screen;
  12.  Var MainBox: Square;
  13.  Begin
  14.    ClrScr;
  15.    MainBox.init(1,3,80,22);
  16.    MainBox.Show;
  17.    Gotoxy(4,2);
  18.    Write('Watcher: Object-Oriented Variable Watch Program.');
  19.    Gotoxy(4,21);
  20.    Write('Enter variable name as shown above.' +
  21.          ' (Case ignored). [Return] to quit.');
  22.  end; {draw screen}
  23.  
  24.  PROCEDURE Init_Vars;
  25.  Begin
  26.    MyList.Init('Vars');
  27.    WatchRec.Init(2,23,@MyList);
  28.    New(Wind0,Init(5,6,25,19,'Wind0'));
  29.    I:=MyList.Add_Element(Wind0);
  30.    New(Wind1,Init(30,6,55,19,'Wind1'));
  31.    I:=MyList.Add_Element(Wind1);
  32.    New(Wind2,Init(60,6,77,19,'Wind2'));
  33.    I:=MyList.Add_Element(Wind2);
  34.    Wind0^.Show;
  35.    Wind1^.Show;
  36.    Wind2^.Show;
  37.  end; {init vars}
  38.  
  39.  PROCEDURE Watch_Vars;
  40.  Var S         : String;
  41.      AnObject  : PointPtr;
  42.      FNum,Elem : Integer;
  43.  Begin
  44.    Repeat
  45.      Gotoxy(2,24); ClrEol; Write('Name: ');
  46.      Readln(S);
  47.      AnObject:=WatchRec.Find_Var(S,Fnum);
  48.      WatchRec.Show;
  49.    Until S='';
  50.  end; {Watch Vars}
  51.  
  52.  Begin
  53.    Draw_Screen;
  54.    Init_Vars;
  55.    Watch_Vars;
  56.    ClrScr;
  57.    Writeln(' Watcher session complete.');
  58.    Writeln(' Copyright (c) 1990, Rick Gessner.');
  59.  end.